home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / voicea_2 / sdksplas.fr_ / sdksplas.fr (.txt)
Encoding:
Visual Basic Form  |  1999-07-04  |  6.3 KB  |  199 lines
  1. VERSION 5.00
  2. Begin VB.Form ComingSplash 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   5  'Sizable ToolWindow
  5.    ClientHeight    =   5040
  6.    ClientLeft      =   48
  7.    ClientTop       =   48
  8.    ClientWidth     =   7200
  9.    ControlBox      =   0   'False
  10.    Icon            =   "SDKSplash.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    Palette         =   "SDKSplash.frx":014A
  16.    PaletteMode     =   2  'Custom
  17.    Picture         =   "SDKSplash.frx":3749
  18.    ScaleHeight     =   5040
  19.    ScaleWidth      =   7200
  20.    ShowInTaskbar   =   0   'False
  21.    StartUpPosition =   3  'Windows Default
  22.    Begin VB.CommandButton Command1 
  23.       BackColor       =   &H00C0FFFF&
  24.       Height          =   492
  25.       Left            =   600
  26.       Picture         =   "SDKSplash.frx":6D48
  27.       Style           =   1  'Graphical
  28.       TabIndex        =   5
  29.       ToolTipText     =   "Order Upgradations"
  30.       Top             =   3360
  31.       Width           =   852
  32.    End
  33.    Begin VB.Image Image3 
  34.       Height          =   492
  35.       Left            =   360
  36.       Picture         =   "SDKSplash.frx":718A
  37.       Top             =   4440
  38.       Width           =   2052
  39.    End
  40.    Begin VB.Image Image2 
  41.       Height          =   1212
  42.       Left            =   3000
  43.       Picture         =   "SDKSplash.frx":8749
  44.       Stretch         =   -1  'True
  45.       Top             =   2400
  46.       Width           =   1212
  47.    End
  48.    Begin VB.Image Image1 
  49.       Height          =   1176
  50.       Left            =   960
  51.       Picture         =   "SDKSplash.frx":A5F3
  52.       Stretch         =   -1  'True
  53.       Top             =   3120
  54.       Width           =   1572
  55.    End
  56.    Begin VB.Label Label4 
  57.       BackStyle       =   0  'Transparent
  58.       Caption         =   "(1)Windows O/S and Windows CE ASR (2) Web Programs   (3) Telephony programs support upgradation"
  59.       BeginProperty Font 
  60.          Name            =   "Verdana"
  61.          Size            =   10.8
  62.          Charset         =   0
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       ForeColor       =   &H0080FF80&
  69.       Height          =   852
  70.       Index           =   4
  71.       Left            =   3000
  72.       TabIndex        =   4
  73.       Top             =   3600
  74.       Width           =   4212
  75.    End
  76.    Begin VB.Label Label4 
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "English, Indian and Foreign Language Word-Processor's.(With Intelligent Dialogues)"
  79.       BeginProperty Font 
  80.          Name            =   "Verdana"
  81.          Size            =   10.8
  82.          Charset         =   0
  83.          Weight          =   400
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       ForeColor       =   &H0080FF80&
  89.       Height          =   1212
  90.       Index           =   2
  91.       Left            =   4320
  92.       TabIndex        =   3
  93.       Top             =   2280
  94.       Width           =   2652
  95.    End
  96.    Begin VB.Label Label1 
  97.       BackStyle       =   0  'Transparent
  98.       Caption         =   "At very small additive cost to purchasers of this version ."
  99.       BeginProperty Font 
  100.          Name            =   "Arial Black"
  101.          Size            =   7.8
  102.          Charset         =   0
  103.          Weight          =   400
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       ForeColor       =   &H00000000&
  109.       Height          =   732
  110.       Left            =   600
  111.       TabIndex        =   2
  112.       Top             =   2640
  113.       Width           =   2052
  114.    End
  115.    Begin VB.Shape Shape1 
  116.       BorderColor     =   &H00FFFF80&
  117.       BorderWidth     =   3
  118.       FillColor       =   &H00C0FFFF&
  119.       FillStyle       =   0  'Solid
  120.       Height          =   1932
  121.       Left            =   120
  122.       Shape           =   2  'Oval
  123.       Top             =   2400
  124.       Width           =   2772
  125.    End
  126.    Begin VB.Label Label4 
  127.       BackStyle       =   0  'Transparent
  128.       Caption         =   "More feature-rich and flexible Artificial Intelligence Add-on."
  129.       BeginProperty Font 
  130.          Name            =   "Verdana"
  131.          Size            =   10.8
  132.          Charset         =   0
  133.          Weight          =   400
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       ForeColor       =   &H0080FF80&
  139.       Height          =   612
  140.       Index           =   3
  141.       Left            =   3120
  142.       TabIndex        =   1
  143.       Top             =   1440
  144.       Width           =   3852
  145.    End
  146.    Begin VB.Label Label4 
  147.       BackStyle       =   0  'Transparent
  148.       Caption         =   "Coming Upgradations ..."
  149.       BeginProperty Font 
  150.          Name            =   "Tahoma"
  151.          Size            =   16.2
  152.          Charset         =   0
  153.          Weight          =   400
  154.          Underline       =   0   'False
  155.          Italic          =   0   'False
  156.          Strikethrough   =   0   'False
  157.       EndProperty
  158.       ForeColor       =   &H0000FFFF&
  159.       Height          =   852
  160.       Index           =   1
  161.       Left            =   240
  162.       TabIndex        =   0
  163.       Top             =   1440
  164.       Width           =   2292
  165.    End
  166. Attribute VB_Name = "ComingSplash"
  167. Attribute VB_GlobalNameSpace = False
  168. Attribute VB_Creatable = False
  169. Attribute VB_PredeclaredId = True
  170. Attribute VB_Exposed = False
  171. Option Explicit
  172. Private Sub Command1_Click()
  173. OrderForm.Show
  174. End Sub
  175. Private Sub Form_Click()
  176. Unload ComingSplash
  177. End Sub
  178. Private Sub Form_KeyPress(KeyAscii As Integer)
  179. Unload ComingSplash
  180. End Sub
  181. Private Sub Image1_Click()
  182. Unload ComingSplash
  183. End Sub
  184. Private Sub Image2_Click()
  185. Unload ComingSplash
  186. End Sub
  187. Private Sub Label1_Click()
  188. Unload ComingSplash
  189. End Sub
  190. Private Sub Label2_Click()
  191. Unload ComingSplash
  192. End Sub
  193. Private Sub Label3_Click()
  194. Unload ComingSplash
  195. End Sub
  196. Private Sub Label4_Click(Index As Integer)
  197. Unload ComingSplash
  198. End Sub
  199.